* lisp/emacs-lisp/cl-macs.el (cl-remf): Fix error in recent

conversion to backquotes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e452e96fcebb69e171c4627e9b7a0f4334b822ac..c88f93419645faedc47f03916e612598974b8726 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/cl-macs.el (cl-remf): Fix error in recent
+       conversion to backquotes.
+
 2012-06-12  Chong Yidong  <cyd@gnu.org>
 
        * emacs-lisp/edebug.el (edebug-inhibit-emacs-lisp-mode-bindings):

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 0b49563adff00e12f208781a91cf3f3b87957a2d..bc90898ad00e6750107e90f0aed5b6927df78b87 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2325,7 +2325,7 @@ The form returns true if TAG was found and removed, nil otherwise."
        (if (eq ,ttag (car ,tval))
            (progn ,(cl-setf-do-store (nth 1 method) `(cddr ,tval))
                   t)
-         `(cl--do-remf ,tval ,ttag)))))
+         (cl--do-remf ,tval ,ttag)))))
 
 ;;;###autoload
 (defmacro cl-shiftf (place &rest args)